home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog69 < prev    next >
Text File  |  1995-06-29  |  675b  |  31 lines
  1. # SpinButton
  2.  
  3. proc changedSpin {reason pos cross value} {
  4.     puts stdout "reason: $reason, position: $pos, crossed: $cross, value: $value"
  5. }
  6.  
  7. proc changedText {reason ptr} {
  8.     puts stdout "Text change, reason: $reason, ptr: $ptr"
  9. }
  10.  
  11. xtAppInitialize -class Program
  12.  
  13. xmSpinBox .spin managed
  14.  
  15. # -values {Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec}
  16.  
  17. xmText .spin.text managed \
  18.     -position 4 \
  19.     -minimumValue 1 \
  20.     -maximumValue 31 \
  21.     -spinBoxChildType numeric \
  22.     -editable false
  23. .spin.text valueChangedCallback {changedText %reason %ptr}
  24.  
  25. .spin valueChangedCallback \
  26.     {changedSpin %reason %position %crossed_boundary {%value}}
  27.  
  28. . realizeWidget
  29.  
  30. . mainLoop
  31.